home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / sammy title (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  8.4 KB  |  223 lines
  1. 0 print"[147]"
  2. 1 x=rnd(-ti)
  3. 2 goto100
  4. 3 rem goto130:rem unrem if unpacked
  5. 4 rem intro 1
  6. 5 v=53248:s=54272:poke53272,31
  7. 6 gosub1530:sys49435:poke781,0:poke782,136:sys49458:poke49152,7
  8. 7 dim ac(8):fori=1to8:ac(i)=.:nexti
  9. 8 dimsn(7):fori=1to7:readsn(i):nexti
  10. 9 data11,13,14,15,14,13,11
  11. 10 dimc(6):fori=1to6:readc(i):next
  12. 11 data 7,5,10,12,14,15
  13. 12 fori=1to8:k=i:k=k-1:k=k*2:pokev+1+k,255:poke2040+i-1,11:nexti
  14. 13 pokev+21,255:pokev+37,7:pokev+38,11:pokev+28,255:pokev+29,0:pokev+23,0
  15. 14 c$="[154][159][154][144]":fori=1to3:gosub40:nexti:gosub16:fori=4to6:gosub40:nexti:goto60
  16. 15 rem main loop
  17. 16 fori=1to5:ifac(i)<>.then18
  18. 17 r=int(rnd(1)*2)+1:ifr=2thenac(i)=1:k=i:k=k-1:k=k*2:gosub23
  19. 18 ifac(i)=.then21
  20. 19 k=i:b=ac(k):poke2040+k-1,sn(b):ac(k)=ac(k)+1
  21. 20 ifac(k)>7thenac(k)=0:b=k-1:b=b*2:pokev+1+b,255
  22. 21 nexti:z=z+1:ifz>32thengosub85:return
  23. 22 goto16:rem choose random x y color
  24. 23 x=int(rnd(1)*155)+1:y=int(rnd(1)*28)+1:x=x+100:y=y+112:pokev+.+k,x
  25. 24 pokev+1+k,y:r=int(rnd(1)*6)+1:pokev+39+k,c(r):return
  26. 40 rem loadstar presents
  27. 41 printmid$(c$,i,1):gosub45:return
  28. 45 forw=1to35:nextw
  29. 46 print"loadstar presents"
  30. 47 forw=1to35:nextw:return
  31. 50 return
  32. 55 rem intro part 2
  33. 60 z=.:forw=1to800:nextw
  34. 61 fori=1to3:gosub66:nexti:gosub16:fori=4to6:gosub66:nexti:goto80
  35. 66 printmid$(c$,i,1):gosub69:return
  36. 69 forw=1to35:nextw
  37. 70 print"a"
  38. 71 print"richard j. derocher"
  39. 72 print"production"
  40. 73 forw=1to35:nextw:return
  41. 80 goto190
  42. 84 rem move sprites off screen
  43. 85 fori=1to8:k=i:k=k-1:k=k*2:pokev+1+k,255:poke2040+i-1,11:nexti:return
  44. 100 dv=peek(186):if dv<8 then dv=8
  45. 110 print"[147]":z5=0:sb=53265:s1=11:s2=27
  46. 120 poke 53280,0:poke 53281,0:print chr$(14):print chr$(8):goto3
  47. 130 sys57812"sm music player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  48. 140 sys57812"sm font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  49. 150 f$="etal.mux"
  50. 160 sys57812f$,dv,0:poke780,0:poke781,0:poke782,132:sys65493
  51. 170 f$="holst.mux":sys57812f$,dv,0:poke780,0:poke781,0:poke782,136:sys65493
  52. 175 sys57812"sm sprites",dv,0:poke780,0:poke781,64:poke782,3:sys65493
  53. 177 sys57812"sm sprite",dv,0:poke780,0:poke781,192:poke782,2:sys65493:goto5
  54. 180 rem intro part 2
  55. 190 printchr$(14)
  56. 200 rem gosub1530:sys49435:poke781,0:poke782,136:sys49458:poke49152,7
  57. 210 forw=1to1000:nextw:print"[147][159]who knows what evil lurks"
  58. 220 printspc(7)"in the heart of the city?"
  59. 230 forw=1to3000:nextw
  60. 240 printspc(6)"sammy marlo doesn't know..."
  61. 250 forw=1to2000:nextw
  62. 260 printspc(6)"but he'll make a good guess"
  63. 270 printspc(7)"if the price is right..."
  64. 280 forw=1to4000:nextw
  65. 290 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  66. 300 print"[147]"
  67. 310 gosub1530:sys49435:poke781,0:poke782,132:sys49458:poke49152,7:gosub1550
  68. 320 t=ti+2320:poke 198,0
  69. 330 kb=peek(198)
  70. 340 if kb<>0 goto 370
  71. 350 if t<ti then goto 370
  72. 360 goto 330
  73. 370 rem credits
  74. 380 poke198,0:gosub1190
  75. 390 print tab(17)"game by"
  76. 400 print tab(11)"richard j. derocher"
  77. 410 gosub620:ifz5=1then570
  78. 420 gosub880:print"":print tab(26)"written with"
  79. 430 print tab(24)"quest writer by"
  80. 440 print tab(26)"[145]jon mattson"
  81. 450 gosub620:ifz5=1then570
  82. 460 gosub1370:printtab(13)"title music by"
  83. 470 print tab(14)"harry bratt"
  84. 480 gosub620:ifz5=1then570
  85. 490 gosub660:print tab(11)"title pictures by"
  86. 500 print tab(10)"cheryl de boissiere"
  87. 510 poke 53265,27
  88. 520 t=t+2670:poke 198,0
  89. 530 kb=peek(198)
  90. 540 if kb<>0 then goto 570
  91. 550 if t<ti then goto 570
  92. 560 goto 530
  93. 570 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  94. 580 print"[147]":printchr$(14):poke 214,12:poke 211,15:sys 58732
  95. 590 poke53272,20:print "[159]loading..."
  96. 600 gosub1810
  97. 610 :rem wait sub
  98. 620 forw=1to1000
  99. 630 kb=peek(198)
  100. 640 ifkb<>0thenz5=1:w=7000
  101. 650 nextw:return
  102. 660 rem room
  103. 670 pokesb,s1:print"[147][152]    [181]   [167][207][196][192][198][185][187]                   [180]   ";
  104. 680 print"      [181][146][176][192][192][174][180][160][160][160][160][181]                   [180] ";
  105. 690 print"        [181][146][221]  [161][180]    [181]                   ";
  106. 700 print"[180]         [181][146][221]  [161][180]    [181]                 ";
  107. 710 print"  [180]         [181][146][221]  [161][180]    [181]               ";
  108. 720 print"    [180]         [181][146][221]  [161][180][187]   [181]             ";
  109. 730 print"      [180]         [181][146][221]  [161][180][181]   [181]           ";
  110. 740 print"        [180]         [181][146][221]  [161][180][161]   [181]         ";
  111. 750 print"          [180]         [181][146][221]  [161][180][181]   [181]       ";
  112. 760 print"            [180]         [181][146][221]  [161][180][190]   [181]     ";
  113. 770 print"              [180]         [181][146][221]  [161][180]    [181]   ";
  114. 780 print"                [180]         [181][146][221]  [161][180]    [181] ";
  115. 790 print"                  [180]         [181][146][221][164][164][152][161][180]  ";
  116. 800 print"  [181]                   [180]         [181][146][221]  [152]";
  117. 810 print"[161][180]    [181]                   [180]         [181][146][221]";
  118. 820 print"  [152][161][180]    [181]                   [180]         ";
  119. 830 print"[181][146][221]  [152][161][165]    [181]                   [180]     ";
  120. 840 print"   [146][169][169]   [152][146][188][185][162][146][184][183][163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  121. 850 print"[162][187][152][223]       [146][169][169]                       ";
  122. 860 print"       [223][152][146][223]     [146][169][169]                  ";
  123. 870 print"              [223][152][146][223]   [146][155]":pokesb,s2:return
  124. 880 rem slick guy
  125. 890 pokesb,s1:print"[147]      [151][162][184][184][184][184][183][183][183][184][146][162][187][159] [155] ";
  126. 900 print"      [159]                   [151][184]           ";
  127. 910 print" [188][155][146]       [159]                  [152][190] [151]     ";
  128. 920 print"     [185][185] [188][155][146]      [159]                [152][172][151][172][150]";
  129. 930 print"[146][172][152][185] [164][151][172][150][184][184][184][151][187]     [191][152][146][172][188][155][146]      [159]    ";
  130. 940 print"           [152] [167][150][185][162][146] [163][163]    [151][146][188][185][150][146][172][184][184][152][146]";
  131. 950 print"[172]  [155][146]        [159]            [156] [152] [167][129]  [150][146][162]";
  132. 960 print"[151] [150]      [162][146][190][129][184][184][146] [150] [152] [188][155][146]     [159]      ";
  133. 970 print"        [150] [151] [152][172][129] [162] [146][162][151] [150][188]    [146][172][129][190]  [146] ";
  134. 980 print" [150][187][152] [151][146][161][155]     [159]             [150] [151] [129][146][182] ";
  135. 990 print"[188][146][187][162][175] [146][191]  [150]  [129] [162][146]   [150][188][151] [146][181][155]     [159]   ";
  136. 1000 print"          [150] [152] [129][146][182][150] [182][182][146] [161][129][190][190][146] [188] [172][146] ";
  137. 1010 print"[182][146] [161][129]  [151] [146][180][155]     [159]             [150] [152]";
  138. 1020 print" [182][150]  [183][183][183] [129] [146][161] [188]       [152] [146][180] [155]    [159]    ";
  139. 1030 print"        [150]  [152][188][182][150]  [146][191]  [129] [150] [129][146][161]    [172]  [146] ";
  140. 1040 print"[170][152] [146]  [155]   [159]             [150]     [146][191]  ";
  141. 1050 print" [172][187][129][188][146] [172]  [150] [129] [172][146] [170]    [155]   [159]          ";
  142. 1060 print" [150]    [170][170] [172][146][190][129][187][162]  [146]  [191] [188] [146]  [170]    [155]  ";
  143. 1070 print"[159]             [150]   [182][182] [129][146][162] [188][146][188][187] [146]      ";
  144. 1080 print"   [187]   [155]  [159]              [150]  [161]  [129] [150]  [129]";
  145. 1090 print" [146][187][162][146]  [187]      [180]   [155]    [159]            [150]";
  146. 1100 print"  [161]    [129][187]    [146][187]   [129][191][155][146]  [167]    [155]  [159]  ";
  147. 1110 print"             [150]      [146] [162][162][162][162][155][162][162]  [155]   ";
  148. 1120 print"[180][146]    [155]  [159]                [156] [150][188]  [129]  [155][146]";
  149. 1130 print" [162][175][175][155][185][146][190]    [190][146][190]    [155]  [159]           ";
  150. 1140 print"       [150][188][129]   [170][162][162][162][155][162][146]    [190][146][190]     [155] ";
  151. 1150 print" [159]                   [150][188]    [129]   [146][190] [150] [190]";
  152. 1160 print"[146][190]      [155]  [159]                  [155]  [150][188]   ";
  153. 1170 print"   [146]  [191][146]        [155]  [159]                ";
  154. 1180 print" [155]     [150][183][184][184][184][184][184][184][155]":pokesb,s2:return
  155. 1190 rem city scape 2
  156. 1200 pokesb,s1:print"[147]                                        ";
  157. 1210 print"                                        ";
  158. 1220 print"                 +           [146]  [182]      ";
  159. 1230 print"+       +                 [146]    [146][190]   [187] ";
  160. 1240 print"                              [146]    [146]   ";
  161. 1250 print"                               + [154][146]   ";
  162. 1260 print" [146] [154]        [146]    [161]           +     [146]";
  163. 1270 print"    [172][146]   [154]   [154]   [154]    [146]   [155] [161][146]  ";
  164. 1280 print"               [146]            [154]     [146][190][155] ";
  165. 1290 print"   [161][151][146]  [154]              [146][161]     [151]   ";
  166. 1300 print"  [154]  [154]  [154]   [146]    [155]  [151]    +    [146][184][184]";
  167. 1310 print"     [146][161]    [151]             [146]  [155]    [152]  [154]";
  168. 1320 print"      [146]   [154]     [146][161]    [151]         [154] ";
  169. 1330 print"      [155]         [146][190]      [146]   [146][161]      ";
  170. 1340 print"    [154] [155]         [154] [151] [155]   [154]    [146]     ";
  171. 1350 print"[154] [146]   [154] [146]  [154]              [155]     [154]";
  172. 1360 print" [151]   [160][154]  [146]           [154] [146][155]":pokesb,s2:return
  173. 1370 :rem girl
  174. 1380 pokesb,s1:print"[147][155]               [129]   [162][162][185][175]  [155]            ";
  175. 1390 print"                  [129]   [190] [183][184][190][188][146][187][155]        ";
  176. 1400 print"                      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  177. 1410 print"[146][187][155]                            [150] [129]  [191][170][150]";
  178. 1420 print"[146][162] [146][162][167][129][165][161] [155][146]                          ";
  179. 1430 print"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]                 ";
  180. 1440 print"            [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155]          ";
  181. 1450 print"                  [129]  [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]";
  182. 1460 print"[172][155][146]                       [150] [155]   [129]  [169][129]";
  183. 1470 print"[190][146][172][150][190]  [163][146][187][223][129] [146][190][155]                   ";
  184. 1480 print"      [155]  [129] [167][167]       [181][129][146][172][190][155]       ";
  185. 1490 print"                  [150] [155] [129] [150][182] [146][223]     [146]";
  186. 1500 print"[169][150][190][146] [155]                           [150] [155] [150][182]";
  187. 1510 print" [129][146] [207][183][183][183][208][146][150][170] [155][146]       ":pokesb,s2:return
  188. 1520 rem clear sid chip
  189. 1530 fori=0to24:pokei+54272,0:next:return
  190. 1540 rem city scape
  191. 1550 pokesb,s1:print"[147]                [150]       [154]            ";
  192. 1560 print"    [150]  [151][164][164]          [150]  [151] [150]   [151] [154]  [151] [154] ";
  193. 1570 print"  [151]      [151]       [150] [161] [151][167][205]        [150]    ";
  194. 1580 print"  [151] [154]      [151] [154]    [151]    [151]     [150] [161][158] [151]";
  195. 1590 print"[146][167] [205]      [150] [151] [150]     [154] [150] [154]             [151]";
  196. 1600 print"   [151]   [150] [161] [151][167][158][188] [151][205]      [150]       [154]    ";
  197. 1610 print"    [154]        [151]  [206] [150] [161] [151][167][158][188]  [151][205]   [149]  ";
  198. 1620 print"                        [151][206][158][162] [150] [161] [151][167] [158]";
  199. 1630 print"[188][188][151][167]       [150] [149]          [151]       [151] [149][185][185][151][206]";
  200. 1640 print" [158][162][146]  [161][158] [151][146][167][158][188] [188][151][167][149]     [129]   [149]    [162][162][162]";
  201. 1650 print"[162][162][162][162][162]  [184][184][184]   [158][146][172]  [146] [150] [161][158][162][151][167][158][188]  [151][167][149] ";
  202. 1660 print"[146][185][185]    [185][185][185][185][185][185][185][129]   [149][184][184][184][184][184]      [158][146][172]   [150] ";
  203. 1670 print"[161][158][162][151][146][167]  [158][188][151][167][149][162] [146][184][184][184][184][184][184][184][184]            ";
  204. 1680 print"  [172][158][146]![149][187] [151][146]  [158][162] [150] [161] [151][167][158][188]  [151][167][158].[149]    ";
  205. 1690 print"           [158][146] :::[129]    [146] [158]::[129] [158][146][188] [162][146]";
  206. 1700 print" [150] [161][158] [151][146][167]   [151][167][158].[129]        [162][162][162][162][162][162] [158][146]::";
  207. 1710 print"::[129] [158][146]::[129] [158][146]:[152]  [129] [158][146][188]  [146] [150] [161]     ";
  208. 1720 print"[151][167] [129]       [158][146][168]::[129][192][158][146]: [168][129] [158][146]:: :[129] [152][146] ";
  209. 1730 print"[158]:[129] [158][146]:  [129] [158][146][172]   [150]       [151][167][158].[129] [146]  ";
  210. 1740 print"[152][146] [158] [152] [129] [158][146][168] :[192][158][146]::[168][162][158]::::[182][152][146]   ";
  211. 1750 print"[158][146]: : [158][146][172] [162] [150] [161]     [151][167][158]. [155][146]  [155][146]";
  212. 1760 print" [158] [155] [175][158][146][168]::[192][158][146]::[168][196][158][146]: ::[182][158][146]: [198]";
  213. 1770 print"[155][146]  [155]  [158][146][167] [158][178][146] [150]                 ";
  214. 1780 print"                   [158][172] [162] [150]             ";
  215. 1790 print"                       [158][172] [162][146][155]"
  216. 1800 printtab(8)"the return of sammy marlo":pokesb,s2:return
  217. 1810 print"[144]load"chr$(34)"questreader"chr$(34)",8,1"
  218. 1820 print"run"
  219. 1830 poke631,13:poke632,13:poke198,2
  220. 1840 end
  221. 10000 open1,8,15,"i0":close1:n$="sammy title"
  222. 10010 open1,8,15,"s0:"+n$:close1:saven$,8:end
  223.